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ABSTRACT 


The theory of pure functional programming is applied to 
the standard conventional programming language PASCAL, 
thereby offering a unique and innovative language for 
probler-solving. A basic set of primitive functions and 
functional forms, as outlined in the 3ackus FP Syster, 
provides a model for the development of a practical 
functional programming system. This system is activated by 
accessing a detailed and comprehensive system library module 
directly from a PASCAL program, thereby enabling the user to 
operate in either a functional or a conventional mode. The 
ability to perform functional programming within a 
conventional, high-level language, adds an increased degree 
of power and flexibility to the proposed system. The 
Functional PASCAL System provides the user with a new and 
distinctive methodology for writing computer programs and 
encourages individuals to experiment, in a Prac ticam 
environment, with functional programming techniques not 


otherwise available for general purpose use. 
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I. INTRODUCTION 


A. BACKGROUNI 

The future of programming language development within 
the computer industry is indeed an area of great concern and 
strong debate. The events of history and the evolution of 
the science to its current state have created some difficult 
problems requiring systematic, bold and creative solutions. 
In order to fully understand the nature of the “computer 
crisis of the 1980’s, it is important to examine the course 
which charted the industry to its present position. 

The cornerstone of computer science today is the 
conventional programming language and its associated von 
Neurann machine. The von Neumann model, which launched the 
modern era of computing machines over three decades ago, had 
as its basis the concept of word-at-a-time processing or the 
transfer of a single word between the CPU and storage area. 
While the initial development of the von Neumann computer 
was a profound technological breakthrough, serious 
deficiencies and limitations have teen discovered ia later 
research. John Backus has cited the most serious defect in 
this particular architecture as the “von Neumann bottleneck 
resulting from the word-at-a-time programming concept [1]. 
The continuing reliance on the von Neurann computer. has 
greatly influenced the direction of programming language 


development for the past thirty years. The conventional 





progranmi ng language, with tes foundation in the 
word-at-a-timre methodology, has flourished since its 
inception anc has served the user community extremely well. 
However, an interesting phenomenon is occuring within the 
conventional language environment. The total dependence upon 
von Neurann computers by both the business and acaderic 
communities has literally forced tae ladustry into 
developing, for the most part, conventional-type programming 
languages. In an effort to make stronger and more 
Sophisticated languages, it became necessary to increase 
their ovepall size and complexity. AS a result, tke 
State-of-the-art development of conventional languages is at 
present producing a much larger but not technologically or 
intellectually superior product. 

Computer language technology has progressed through a 
rultitude of stages from the original von Neurann style of 
programring languages to what appears to be a turning point 
in the future design and implementation. Standing at the 
crossroads in this continuing developrental process are many 
prominent voices urging movement along a variety of paths. 
The traditionalists remain comfortable with the von Neumann 
Style of progratming languages while the mavericks of the 
Backus philosophy insist that the conventional languages 
have been pushed to their limit and the many inherent 
weaknesses of these languages rust be overcome by 
introducing the concept ope 3 functional style of 


programming. The notion of functional prograrming, as 





espoused by Backus, contrasts the inherent problems of the 
conventional languages, i.e. the von Neumann bottleneck and 
word-at-a-timre mentality with an alternate methodology of 
thinking and reasoning on a broader, more conceptual level. 
The functional languages, along with the object-oriented 
languages such as Sralltalk from the Xerox Corporation and 
the natural languages from the artificial intelligence 
arena, offer a wide variety of alternatives to the von 
Neumann model. 

It is readily apparent that the architecture of the 
original von Neumann machines has not only influenced the 
rast development of languages, but also continues to 
Stagnate the intellectual growth of the science, especially 
in bold new areas such as functional programming. The lack 
of suitable machines, in general, to procéss non-von Neumann 
languages has reinforced the development and refinement of 
conventional languages, thus, creating a vicious cycle which 
may be very difficult to overcome. In addition, the ability 
to gain the acceptance of the user community for a new style 
of programming will be at best very difficult and at worst 
virtually impossible. It is essential, therefore, that a 
detailed and comprehensive plan be established industry-wide 
to facilitate not only the future growth of non-von Neumann 
languages but also the development of non-von Neumann 
architectures to support these languages. The solution to 
the problem must be sought in two distinct areas; (1) the 


development of new hardware technologies which will be able 
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to process the noa-von Neumann programming languages in an 


efficient and cost-effective manner and (2) the development 
of an intermediate programming language which will enable 
the users of conventional programming languages to slowly 
and Systematically learn and accept a new style of 
programming and ultimately a more sophisticated and powerful 


methodology for problem solving. 


Ee. oC OPE 
The intent of the thesis is to explore a possible 
interim solution to the long range problem of implementing a 
non-von Neumann type of programming languege and in 
addition, gain user community acceptance of this powerful, 
unconventional programming technique. The growing problem of 
programmer preauctivity and associated human factors 
considerations related to the programming process are 
central issues in the motivation for the thesis. It is 
assumed that the hardware issues previously mentioned will 
eventually find a solution with advancing technologies and, 
therefore, have not been included in the scope of study. The 
thesis proposes to show the potential value of integrating a 
nen-von Neumann programming method into a current 
conventional language with the sole purpose of providing a 
smooth, systematic and orderly transition into the future 
generations of programming languages. 
1. Statement of the Problem 
There is currently no method for a programmer to use 
the powerful concepts of functional programming within a 


tel 








conventional language environment as an interim solution to 
the development and implementation of advanced programming 
language techniques. 
2. Hypothesis 

The theory of pure functional programming can be 
applied to a standard conventional programming language. A 
subset of the total concept and problem-solving techniques 
of a functional programming language can be implemented 
within the structure of a conventional language, thus 
enabling a programmer to simulate a functional programming 
environment while remaining within the traditional bounds of 
a conventional language. 

oOo. Dependent and Independent Variables 

In order to fully describe the interrelationships 
between the different components involved in the research 
endeavor, it is necessary to identify the major dependent 
and independent variables. The non-von Neumann methodology 
selected for integration into a conventional environment is 
the concept of functional or applicative programming as 
described by Backus [1]. The functions developed for 
integration will be termed the independent components or 
variables. The high-level conventional language chosen for 
the research is the PASCAL programming language. I[t will 
serve as the dependent component or variable inasmuch as its 
overall capabilities will be significantly altered by the 
implerentation of the independent functions which will be 


integrated into its strvucture. 
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4. Intended Contribution 

The contribution of the research effort is focused 
primarily on the issue of programmer productivity and in 
particular, the necessity for providing new and innovative 
tools for the development of computer programs. It is 
intended to be a small step towards interfacing with the 
programming language of the future which by its very nature 
will be simple, yet powerfully extensible. The conventional 
languages will be embedded in the majority of applications 
in the near term as it is very difficult to change 
traditional programming habits. A successful test of the 
above hypothesis will convince the reader that there is 
indeed, from the users point of view, an interim solution to 
bridging the gap between the Current conventional 
programming languages and the powerful unconventional 
languages of the future. It will reinforce the concept that 
a programmer can simulate the techniques and problem-solving 
rethods of a functional or applicative type language while 
using the traditional tools to which he or she is 
accustomed. The proposed language or system, termed 
Kunetional PASCAL, Will off@ra,glimpse into the future of 
programming langvage design. It is not intended to be a 
complete solution but will hopefully achieve two important 
objectives; (1) provide a vehicle for exploring the use of a 
functional programming language and (2) provide a planned 
methodology for achieving the ultimate goal of developing a 


simple, yet powerful programming language for the user. 
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As the cost of herdware continues to decline 
dramatically within the industry, the explosion a6 
microtechnology is driving the development and production of 
faster, less expensive and more efficient machines. In 
contrast, the problems facing mankind are growing 
progressively larger and more complex along with the 
software used to solve those problems. It is essential, 
therefore, that appropriate tools be developed to meet the 
Challenge of a More complicated world. The largest portion 
of the computer budget in the future will, without a doubt, 
be targeted for the softwere arena. It is imperative that 
the methods for building, maintaining and understanding 
computer programs be eddressed in a bold and innovative 
Manner. It is with this thought in mind that the following 


research is accomplished. 


C. OVERVIEW 

A orief introduction hes been provided in Chapter I 
outlining the general background of the problem and the 
scope of the study. Chapter [I focuses on a detailed review 
of the literature and addresses some of the basic concepts 
and definitions within the realm of functional programming. 
Alternative solutions for integrating the concepts of 
Punctional programming into a conventional language 
environment are explored in Chapter III. The proposed design 
and detailed specifications for the final development of the 
Functional PASCAL System are provided in Chapter IV. Chapter 
Y contains the implementation procedures for the system and 
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the initiel test results in an operational environment. The 
study is discussed in its entirety in Chapter VI, rendering 
pertinent comments about the findings of the research, a 
final summation of the results and the conclusions of the 
researchers. Recommendations for further research are also 
addressed along with related topics of interest in the area 
of functional programming. A complete documentation package 
is provided in Appendix A (Source Code) and Appendix B 


(User’s Manual). 


ES 





II. REVIEW OF THE LITERATURE 


A. GENERAL 

The literature does not, at present, specifically 
address the issue of integrating a functional or applicative 
language into a conventional environment. However, a general 
overview of the theory, concepts and structures of 
functional programming is deemed essential in order to fully 
understand the purpose and ultimate benefit of the proposed 
syster. In an attempt to prove the validity of implementing 
a non-von Neumann type programming language in a 
conventional environment, it is first necessary to explore 
not only current ideas and methodologies, but also the basic 
terminology that comprises the new technique. 

Acsewes mentioned earlier, the declining cost of hardware 
is allowing the designers of programring langueges to 
concentrate rore on building simple and extensible languages 
and less on the efficiency of implementation. The escalating 
cost of software, on the other hand, reinforces the theory 
that more emphasis needs to be placed upon the nature of the 
programming language itself. Functional programming enables 
a user to experience an even higher-level programming 
Capability than is provided with traditional conventional 
languages. Programs are easier to construct, easier to 
Maintain and easier to understand [2]. The following review 


of the literature and explanation of basic concepts will 
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provide the reader with a better understanding of the world 
of functional or applicative programming. Individuals with 
previous knowledge of functional programming may wish to 
skip Chapter If and continue with Chapter erie the 


alternative solutions to the probler. 


3B. BASIC LTEFINITIONS AND CONCEPTS 
Functionel programming is an unconventionel style of 

problem-solving which traces its history to the simple 
concept of the mathematical function. The basic concept of a 
function is a rule of correspondence which maps members of 
set X, for exarple, into a unique member of set Y. The 
rembers of set X comprise the domain and the members of set 
Y, the range [2]. The members of the two sets are objects 
and the resulting operation of the function is a mapping of 
each object from the domain into a unique object in the 
range. 

Set X Se Lae 

Ruth Pn oe Player 

Cimaggio President 

Carter ee ee ae 

Cronkite 
The function is considered the operator and the object, the 
operand. In the example, the function OCCUPATION is applied 
to the object Ruth and the result is another object, 
Baseball Player. The object Ruth can also be thought of as 
the argument passed to the function, OCCUPATION. It is 
essential to reiterate that only unique mappings can occur 


from Set xX to Set Y, i.e., members of Set X cannot map to 
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two distinct objects in Set Y. It should also be noted that 
there may be bounds placed upon the allowable members of the 
domain and range. For example, the function SQUAREROCT has 
as its domain and range the set of non-negative real 
numbers. The function SQUARE, however, has as its domain the 
set of real numbers and as its range, the more limited set 
of non-negative reals. To generalize the notion, it can be 
Stated that a function takes as its argument, an object, and 
produces another object. 
f (odject) ====> (object) 

A function can be thought of as a program which takes input 
in the form of an argument and produces some output in the 
form of a result. The basic structure of expressions ina 
functional language consists solely of operators applied to 
operands (2]. The operands are the actual values or 
arguments that are passed to the functions while the 
functions serve as the operators which take the values and 
operate on ther producing a result. This result, which is 
also a value, can be used aS an argument to another function 
iterdesi red . 

In order to take advantage of the powerful concept of 
functions in tuilding a program, it is essential that a user 
be allowed to construct new functions from old ones. The 
building of these new functions from ones previously defined 
is called functional composition and provides the capability 
of implementing a hierarchical structure within the program. 


In its simplest form, a functional program consists of one 
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basic primitive function. At the other extreme, the program 
consists of a hierarchy of functions built from other 
functions resulting in the view of the entire program as one 
large function. There are two distinct schools of thought as 
to the irplerentation of the basic primitive functions 
within the language and these ideas will be discussed later. 

The differences between a conventional programming 
language of the von Neumann mold and the functional or 
applicative languages described by John Backus and Peter 
Henderson aré numerous. The basic difference is that 
“imperative languages” such as PASCAL, COBOL and FORTRAN 
compute by effect rather than by value. Computing by effect 
involves the incremental Changes to variables by a 
continuous series of assignment statements [2]. In contrast, 
functional programs compute by value or, in other words, a 
unique value of a particular function is determined by its 
arguments. The imperative languages, therefore, are more 
assignmrent-oriented and variable-oriented in nature than 
applicative languages. An applicative language, such as 
functional programming, is more function-oriented and 
value-oriented with additional emphasis on the concept of 
recursion. In addition, applicative lenguages are usually 
organized around functional applications. Since a function 
operates only on its arguments to produce a result or value 
and there is no ultimate assignment to a variable, the need 
for variables is eliminated. The actual arguments are not 


named, either, which also eliminates the need for variables 
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as they have been used in the past. A functional program 
does not incorporate any data, per se, but operates instead 
on whole conceptual units. The basic power of the 
applicative type of system is the ability to build functions 
from functions without the use of variables, thus creating a 
Simple, yet elegant hierarchical structure for a program. 
Frograms written in functional or applicative languages are, 
in many cases, an order of magnitude shorter than equivalent 
conventional language programs [2]. Although the theory of 
functional programming has been studied extensively and many 
different models proposed, the review will concentrate on 
the functional programming system proposed by John Backus 
(tale. References to other systems and contrasting 
rethodologies will be made in order to give the reader a 
balanced perspective of the research and development that 
has been completed to date. It should be emphasized, 
however, that the development of a subset of a functional 
programming language for integration into a conventional 
environrent as proposed in subsequent chapters of this 
paper, is accomplished using the basic framework of the 


3ackus system. 


C. A FUNCTIONAL PROGRAMMING SYSTEM 
A functional programming system, according to Packus, is 
built from five component parts; (1) a set of objects, (2) a 


set of functions, (3) operations or applications, (4) a set 
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of functional forms and (§) a set of definitions [1]. Each 
of these component parts is explained in greater detail 
below. 
1. Objects 

An object, as mentioned earlier, is an argument that 
is passed to a function which it operates on. It can either 
be an atom, in its most basic sense, or a sequence where the 
sequence atselfeis a set of one or more objects. An object 
that is neither an atom nor a sequence is said to be 
undefined and is denoted by a special symbol, an inverted T 
(called “bottom’) [1]. The allowable symbols for an ator 
Within the system are digits or nonnull strings of 
alphabetic letters. Cetain special symbols may also be used 
if they are not implemented as a feature within the language 
itself. Henderson classifies atoms as either symbolic or 
numeric and uses the notion of an ‘S-expression to 
fllustrate how atoms are combined to form simple and complex 
sequences [2]. The most basic form of an ‘S-expression , 
according to Henderson, is a single atom, while a rore 
sophisticated S-expression Might contain a list of atoms 
or sequences of atoms. A special symbol is used to denote 
the empty sequence and is the only object in the functional 
System that can serve as either an atom or a sequence. The 
actual representation or specific symbol used depends on the 
particular designer of the system but the most common one is 


the symbol for the null set (@). 
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some Elementary Objects in a Functional Programming System: 


ATOMS: BC X Y BALL BAT 1 5 8.4 
SEQUENCES : <A B CD <X Y <X Y Z>> <X<ED <F G> <BH I JDD 
<<. OAE SAME 2D <<182>.<E.5>> 3 WISE 
Again, it rust be emphasized that everything in a functionel 
syster 1S viewed in terms of functions or operators applied 
to objects or operands. The single atoms and combination of 
atoms into sequences illustrated above have the common bond 
in that they all represent objects. 
2. Functions and Applications 

Now that the concept of an object has been defined, a 
logical follow-on component is the function that provides 
the actual operation on those objects. A function has the 
responsibility of mapping objects into objects. The act of 
operating on an object by a function is termed an 
application. It derives its name from the fact that the 
Punetion, or op@rator, is applied to a specific object, or 
operand, to obtain a result [1]. Most functional programming 
Systems provide different types of functions that can be 
implerented by the user. In the functional system designed 
by Backus, a function can be in one of three catagories; (1) 
primitive, (2) user-defined or (3) functional form. The 
primitive functions are those that are provided by the 
System whereas the user-defined functions are developed for 
specific applications by the user through the use of one or 
more of the primitives. The Backus pnilosophy encourages the 


use of a powerful and diversified set of primitive functions 
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Which provides the programmer with a significant amount of 
latitude in designing a functional program. In contrast, the 
system proposed by Henderson limits the set of primitive 
functions to elementary selector and constructor functions 
such as FIRST, REST and CONS (CAR, CDR and CONS in LISP 
notation). It is the user’s responsibility to define new 
functions in terms of the primitive ones provided by the 
system, which places an added burden on the programmer. 
Fxarples of Applications Using Primitive Functions: 

FIRST 3: <X Y Z> ===> X 

REST 3: <<BALLD> X YZ <BATD> ===> <X YZ <BATD> 

CONS : <<X YD <<K Z> <BALL BATDD>D 

===> <<X YD <X Z> <BALL BAT>D> 

LENGTH : <21 BAT <X YD BD ===> 4 

REVERSE : <1 23 4 5D ===> <5 43 2 1D 
In addition to the elementary selector and constructor 
primitives, most functional systems provide, either as a 
user-defined function or eS pert of the system-defined 
primitives, arithmetic and predicate functions. The need for 
the former is obvious while the latter becomes an essential 
feature of the language in order to process lists of varying 
structure [2]. A predicate function is one that returns a 
boolean value when it is applied to its argument. Having the 
predicate capability enables a programmer to test a 
structure to determine if it is an atom or a list or whether 
or not a particular structure is equal to another structure. 


Examples of Predicate and Arithmetic Functions: 
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SUM : <1 18 4 €> ===> 21 
ATOM : <BALL BAT> ===> False 
FQ : <RUN RUND ===> True 
Oo. Functional Forms 
The true power and sophistication of a functional 
programming system is achieved through the mechanisms of 
functional definitions and functional forms. The use of 
functional forms is unique to the system implemented by 
Backus while user-defined definitions are usually a standard 
feature of most Punctional programming systems. The 
functional form is a@ mechanism used to combine existing 
functions or objects into new functions [1]. The arguments 
of a functional form can be functions or objects. The 
rethodology of building functional forms may be familiar to 
the reader as combining forms and is explained in greater 
detail by Curry and Feys in their work on combinatory logic 
[aur 
Examples of Functional Forms: 
COMPOSITION: Symbol ===) 0 
(Assuming two functions f and g) 
Munctional form: f 08g 
Application to object x: (fog) :x 


Represents: f : (g : x) 


APPLY TO ALL: Symbol ===> a 
(Assuming one function f) 
Functional form: af 
Application to object X 
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where X is a sequence: sg OO bee 3 ED: 
Repaesemts: <f'rXd *3%25 £:13> 
4. Functional Definitions 

The user-defined function rounds out the last 
component of a functional programming system. It gives the 
programmer an opportunity to define new functions using the 
principles of combining forms and actually names the 
function for future use. Although most functional systems 
allow the user to specify new functions, the actual 
implementation may vary from system to system. The basic 
concept, however, remains the same. There is a relationship 
established where the left-hand side of the equation 
consists of the symbol selé@cted for the newly defined 
function. The right-hand side of the equation, then, is a 
set of primitive functions or a functional form. When the 
symbol for the new function is invoked, it has the net 
effect of substituting the pre-defined functions or 
functionals for the user-defined symbol, thus creating the 
new function. This method for defining functions provides 
the programmer with a powerful capability of extending the 
language and also offers an added dimension of flexibility 
to the system. 
Examples of User-Defined Functions: 


(Define a function that returns the second 
elerent of a list) 


DEF SECOND <X> = <FIRST <REST <XD>> 
(Application of the new function) 
SECOND : <3 € 9> ===> 6 
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The evaluation of the new function is accomplished by 
substituting the previously defined primitives, which in 
turn requires two more function applications. The function 
REST applied to the object X, which is a list containing 
three atoms, returns an object. This object, a list 
conteining the two ators 6 and 9, iS passed to the function 
FIRST which returns another object, the atom 6. Although a 
trivial example, the concept of creating new and more 
powerful functions from old ones is indeed a desirable 
property for any programming language and is an essential 


feature of functionel systems. 


[T. AILITIONAL CONCEPTS AND METHODOLOGIES 

It should be noted that the references to objects in the 
functional programming system are actually values and should 
not be confused with the purely mathematical definitions as 
discussed ty Maclennan [4]. The’ applicative programming 
system remains value-oriented in nature by definition. 

With all of the advanteges of a functional programming 
system come several disadvantages as well. One of the 
primary limitations is the inability to add functional forms 
to the system when needed. The standard functional system, 
then, is rigidly fixed; its capability is limited by the 
original set of primitive functions and functional forms 
that establish the framework of the language. The only 
flexibility in the functional system is the programmers 
option of defining a function by name, using the functional 
forms provided within the system. In an attempt to overcome 
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this restriction and recover the simplicity and elegance 
attributed to applicative systems, the notion of a formal 
functional programming system (FFP system) is introduced 
[1]. The FFP system provides the programmer with the 
capability of defining new functional forms and ultimately 
increases the overall flexibility of the system. 

Chiarini extended the functional programming concepts of 
Fackus by implementing an enhanced version of an applicative 
syster [5]. Be not only standardized the symbols used in a 
functional programming system so that programs could be 
implerented on ASCII terminals, but also developed 
additional functional forms that complemented the original 
ones proposed by Packus. The functional forms proposed by 
Chiarini are examined in greater detail in Chapters 3 and 4. 

Another limitation of a functional or applicative system 
is its lack of history sensitivity [1]. The original concept 
of eliminating the notion of states from programming was 
rotivated by the overwhelming complexity that resulted from 
programs having to keep track of thousands of variables, 
representing the state of a machine at a particular point in 
time [4]. In contrast to the large number of state changes 
required by an imperative language due to the constant 
alteration of variables by assignment statements, the 
concept of functional programming presents a completely 
cifferent approach. A reduction in the number of state 
transitions is a highly desirable property, but the complete 


absence of states altogether in the functional system 
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proposed by Backus imposes some severe restrictions. The 
need for compromise resulted in a proposal for. an 
Applicative State Transistion System (AST System) [1]. In 
this system, a new state is computed by the application of a 
particular function to its argument or arguments which 
produces an output or result. The output is, in fact, the 
new state. A critical feature of the AST System is that no 
State changes occur during a computation; only upon 
completion of the functional application. The significant 
reduction in state transitions greatly simplifies the 
underlying computation and brings together the best of both 
programming methodologies. The actual components of an AST 
Syster consist of a formal functional programming system as 
Freviously described, a set of definitions that determine 
the state of the program and a set of transition rules that 
allow functional applications to occur and affect changes to 
the original state [1]. 

Any dissertation on functional programming must include 
a discussion of recursion. Generally speaking, a functional 
system consists of functions operating on objects. These 
objects are represented in a list structure and therefore, 
resulting operations imply changes to that list. Two cases 
must be considered when applying recursive functions to a 
list; (1) the situation when the list contains one or more 
elements and (2) the situation when the list is empty. By 
implementing a recursive function and applying it repeatedly 


to an object (list), the recursion is guaranteed to 
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terminate. The list decreases in size by one item with each 
recursive call until the list is empty and the aull 
condition is reached [2]. The concept of recursion is 
extremely useful when implementing new functions which 
operate on lists and is a powerful tool that is a welcome 
feature ina functional system. 


A Recursive Function: 


LENGTH <X> 
IF FQ 3 <X,nil> THEN 
g 
ELSE 
LENGTH : <REST<X>> + 1 
END IF 
This cursory review and explanation of terminology is 
intended to give the reader a broad overview of the concept 
of functional programming. The subsequent chapters attempt 
to use a subset of these powerful programming techniques in 
a controlled manner within the framework of a conventional 


progranming language. 








III. ALTERNATIVE SOLUTIONS TO THE PROBLEM 


A. GENERAL 

In examining the various alternatives to implementing 
functional programming techniques within a conventional 
programming language environrent, it is important to 
remember the most critical factor and overall goal of the 
system design: ease of use for the programmer. It is this 
dDasic premise that is so often ignored in many language 
designs. The net result is the development of highly 
sophisticated programming languages which, for the average 
individual, are extremely difficult to understand and use 
effectively. To maintain the proper perspective, designers 
must be aware that the ultimate purpose of computers and the 
languages which provide their ‘intelligence, is to 
accomplish real-world tasks. As problem solving becomes more 
complex and the availability of computers to the average 
person becomes more widespread, the task of providing simple 
and powerful programming languages to a large and 


diversified user community is, indeed, a challenging one. 


B. PRCGRAMMING LANGUAGE STRUCTURE 
1. The Programming Language Continuum 
The current technology of programming language 
development can be viewed as a continuum with two distinct 
endpoints. One extreme represents the standard imperative 
languages, while the other extreme represents applicative 
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languages. The number of existing languages within the 


former class are numerous while the number of operational 
languages within the latter are few and far between. The 
design of the Functional PASCAL System attempts to provide 
the user with the capability of operating at any point on 
this ‘programming language continuum” as illustrated in 
Figure 5-1. The left side of the continuum represents the 
use of high-level conventional programming languages for a 
particular application. The right side represents the use of 
applicative programming techniques - to accomplish a 
programming task. The purpose of the Functional PASCAL 
System is to enable an individual to operate at a point in 
between the two extremes. Ultimately, the system will allow 
the user to simulate the techniques of functional 
programming to any degree desired or remain in the familiar 
conventional environment. The degree to which functional 
versus conventional programming techniques are used depends, 
to a large extent, on the type of calculation required and 
the motivation of the user to experiment with new 
rethodologies. 
2. Programming Language Components 

Programming languages, in general, consist of two 
basic components; (1) a framework and (2) a series of 
changeable parts [1]. The framework dictates the basic rules 
of the system and describes the fixed features of the 
language. The standard language constructs, i.e. the IF, 


CASE, WHILE, REPEAT and FOR statements are examples of 
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portions of the PASCAL language framework. Changeable parts, 
on the other hand, are independent components such as 
user-defined procedures or library functions which exist 
within the framework and provide a degree of flexibility to 
perform certain operations. 

Sore of the current state-of-the-art conventional 
programming languages seem to consist of large, bulky 
frameworks with moderate to small numbers of changeable 
parts; this results in the inflexibility of von Neumann 
style word-at-tire programring. The underlying principle of 
the Backus philosophy envisions reduced frameworks and a 
marked expansion in the number of changeable parts which 
will provide the programmer with increased control and 
flexibility over the programs being created. Figures 3-2 and 
Z-3 illustrate the relationship between “frameworks and 
“changeable parts as viewed across the programming language 
continuur. It is hypothesized that there is a noticeable 
decrease in the size of the language framework as the 
continuur is traversed from conventional languages to 
applicative languages. In contrast, the number of changeable 
parts seers to show a complementary increase over the sare 
continuum, reinforcing the hypothesis that frameworks can be 
reduced as the repertoire of changeable parts grows. 

In attempting to provide a long-term solution to the 
problem of large, unwieldy frameworks and insufficient 
Changeable parts within the conventional programming 


languages, a purely applicative language could be developed 
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along the lines of the Hendersen model [2]. However, in the 


Short-term, the critical factor that must be considered is 
user reluctance to use a functional language in total for an 
entire progratming avplication. It seems that human beings 
not only think in a sequential manner, but are also 
creatures of habit and occasionally tend to resist change. 
With these facts in mind, it is essential that the proposed 
system allow the user to decide when functional programming 
will be used (if at all) and to what degree. The user must 
be given the flexibility to move across the ‘continuum at 
will in order to achieve the degree of functional 
progranming that is comfortable and useful 10% the 
particular application. When the desired results are 
achieved, the programmer can return to the sanctity of the 


conventional environment and continue the application. 


C. FUNCTIONAL PASCAL: TEE BASIC CONCEPTS 

The methodology for achieving the transition from 
conventional to functional programming techniques is 
three-fold: (1) increase the number of changeable parts 
within the language by providing a rich and powerful set of 
primitive functions as presented by 3ackus, (2) reduce the 
dependence on the conventional language constructs by 
allowing the programmer to implement user-defined functions 
built from the basic set of primitives, and (3) provide the 
programmer with a clear and concise choice as to which 
environment is best suited for the particular application 
bola ag 
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The overall logical schema of the Functional PASCAL 
System is illustrated in Figure 3-4. The system consists of 
two basic logical modes of operation: (1) conventional and 
(2) functional. The user is provided the opportunity to 
select either mode and subsequently operate in that mode for 
all or part of the application. If the user decides to 
operate in the functional mode, there are two logical 
sub-modes from which to choose, again, dictated by the 
application and type of calculations required. The “system 
sub-mode allows the programmer to access the system-defined 
primitive functions which are resident in a library. The 
“user sub-mode allows the programmer to define new 
functions within the program by using the standard 
system—-defined primitives from the library. The logical 
modes and sut-modes are discussed in detail below. 

1. Conventional Mode 

The conventional mode of opération allows the user to 
Operate purely in a high-level, conventional programming 
language. In the oprototype Functional PASCAL System, the 
high-level language used as the foundation of the system is 
the University of California (Berkeley) PASCAL, which is 
designated the host’ language. UC j3erkeley PASCAL runs 
under the UNIX operating system frem Bell Laboratories. The 
hardaware selected for system development and implementation 
is the VAX Model 11/780 from the Lbigital Equipment 
Corporation (IEC). The basic concept of the system, however, 


is flexible enough to be designed around any of the 
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widely-used, high-level programming languages and run on 
compatible hardware configurations. This would enable 
Similar systems such as Functional COBOL and Functional 
FORTRAN to be developed in the future. 
2. Functional Mode 

The heart of the Functional PASCAL System is the 
notion of the primitive function as described by Eackus in 
his research and writings on functional programming [1]. 
These ‘primitives form the building blocks Om the 
functional system and play an important part in the proposed 
hybrid system. In order to perform functional programming in 
the PASCAL eCnvironment, the primitive functions are 
programmed in the host language and reside in a system 
library. The programmer is able to use any of the 
“primitives to simulate a functional programming operation 
within the PASCAL program. The basic primitive functions 


provided in the Functional PASCAL system are: 


(1) selector (9) length (17) distribute from left 
G2) tail (18) add (18) distribute from right 
(3) identity (11) subtract (1S) append left 

(4) atom Cl2 aml tip y (20) append right 

(5) equals (13) divide (21) right selector 

(6) null (14) and (22) right tail 

(7) reverse sor (23) rotate left 

(@) transpose (Le) ort (24) rotate right 


These “primitives operate on list structures which serve as 
the arguments to the functions. The result of this function 
application. is a newly-formed list structure. 

Tn addition to this comprehensive set of primitive 
functions, a limited number of functional forms are included 
in the system litrary. The functional forms are slightly 
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more complex entities than the basic primitive functions and 
can best be described as expressions with functional parts. 
The functional forms are different from the primitive 
functions inasmuch as the functions involved a the 
expression have an interdependent relationship. The 
functions, or dependent elements, serve as parameters to an 
independent element of the expression. The basic functional 
forms (functionals) provided in the Functional PASCAL System 
are: 


(1) insert 
(2) apply to all 


The design and implementation of the primitive functions and 
functional forms are discussed in further detail in Chapters 
4 and 5. 
5. System Sub-Mode 

The “system subd-mode represents the portion of the 
logical schema which allows the programmer to access the 
priritive functions and functional forms in the syster 
library and perform the basic operations of functional 
programming. The degree of flexibility in this logical 
Ssub-rode is limited to those operations which can be 
accomplished by the call of a single library function. The 
primitive functions can provide the user with 24 potential 
operations at the most basic level of functional 
programming. The functional forms offer an added dimension 
and increased capability for the system sub-mode. 
Individual documentation sheets are provided for each 
primitive function and functional form in Chapter IV. 
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4. User Sub-Mode 

The ‘user’ sub-mode FEepPTesenvs the —pomtvonmeet the 
logical schema which allows the programmer to create new, 
user-defined functions from the “primitives. and 
“functionals” resident in the system library. Having the 
ability to develop new functions fror existing ones using 
the technique of combining forms is a critical element in 
the potential power of functional programming. Only one 
additional functional form is required to perform the task 
of function composition. The process of composition can be 
accomplished using the existing framework of the host 
language and can be implemented very simply by defining a 
new function in the host language using the existing 
peemative functions and functional forms fror the syster 
imeerary. The extent of the capability of the user-defined 
functions is limited only by the imagination of the 


programmer. 
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ev. FUNCTIONAL PASCAL: A PROPOSED DESIGN 

The design of the Functional PASCAL System involves the 
augmentation of the basic, high-level, host language with a 
series of functions, both system and user-defined. Due to 
the magnitude and scope of the 3ackus proposal, the total 
system development effort is divided into two phases. Phase 
I encompasses the destgna and implementation of an 
interactive input function, an output function, 13 selected 
premeagtive functions, 2 functionel forrs and the capability 
to produce user-defined functions. Phase II is the design 
and implerentation of the remaining 11 primitive functions 
and the more complex functional forms outlined in the Backus 
functional orogramming system. The scope of the development 
Dorption of this thesis, in sgerneral, and Chapter IV 


specifically, is limited to Phase I. 


A. METEODOLOGY 

The design of the Functional PASCAL System follows the 
top-down, structured approach using the logical schema shown 
imimeremo—+ as its foundations In addition, the principle 
of “information hiding is enforced by specifying the exact 
interfaces between modules and nothing More. For exemole, 
the generalized input function always returas the locetion 
(a pointer) of the newly-created data structure. This 
location serves as an input peramreter to the system 
(primitives and functionals) and user-defined functions. The 
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system and user-defined functions do not have any knowledge 
of the internal workings of the input and OUtDut tue tions, 
and vice versa. Thus, a black box” approach is obtained. 
The development effort concentrates on the Functional Mode 
of the logical schema, as the PASCAL host language provides 
pre vehicle for performing conventional programming tasks. 
The func tional portion of the proposed system 
necessitates the design of three major components: (1) an 
interactive input function, (2) a system library containing 


the primitive functions and functional forms outlined in 


Chapter III and (3) an output function. 


3. FUNCTIONAL MOTE TESIGN 

momecrscussead in Chapter II, the basic format for a 
functional programming overation is represented by the 
notation: 

ES (f applied to x) 
where f represents a vrimitive function, functional form or 
user-defined function and x represents an argument list cr 
“object which can be an atom, a seauence or undefined (See 
Figure 4-1). 

The Fuactional PASCAL Syster devarts eel the 
traditional Backus definition of object in the following 
Manner. The functional programming system of 3ackus States 
that an “object. can be an atom, a sequence or an undefined 
Gadtity and that the elements within a sequence cada, ia 
themselves, te “objects . The proposed Functional PASCAL 
System, on the other hand, defines ‘object to be the entire 
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argument list that the system and user-defined functions 
operate on. The component parts of this obdject are termed 
"elements and can be either atoms or seaguences. For 
rurposes of this thesis, the terms ‘argument list. and 
“object are synonomous. 
In examining the functional portion of the Functional 
Fano CAL Syster, the following generalized algorithm is 
provided as the first iteration in a stepwise refinement 
design process. 
ALGORITBM FUNCTIONAL-MODE-DESICGN 
—- Input argument list (object) 
~ Create a data representation for the argument 
list (object) and return the location of the 
newly-created data structure 
~ Using the argument list, perform the operation 
specified by the function and return the Location 
of the data structure as mcdified ty the fuaction 


- Output the results of the functional operation 


—- Continue the application in the conventional or 
functional mode 


END FUNCTIONAL-VYOLE-DES IGN 
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The procedures within the algorithm perform four very basic 
operations: (1) obtain the input data from the user, (2) 
place the data into an appropriate representation, (3) 
Manipulate the data and (4) output the data. Fach of these 
procedures is explained in detail in Sections 1-4 below. 
1. Interactive Input Function 

The purpose of the inpnut function (REAILIST) is to 
interactively read a user-defined ergument list from a ORT, 
create a doubly linked list data structure to represent the 
argument list and return a pointer to the data structure. 
The user enters the argument list from the terminal and it 
is placed in a temporary buffer. The exact fcrmat fer 
entering the string into the system is outlined in detail in 
Appendix B, The User’s Manual. After the argument list is 
mies into the buffer, the parsing process begias in order 
to determine if the object is (1) an atom, (2) a sequence. 
(3) the erpty set (a special form of a sequence) or (4) an 
undefined entity. If the object is determined to de a 
sequence, a procedure (GENLIST) is invoked which recursively 
creates a doubly linked list data structure for each 
sequence in the argument list. The following generalized 
algorithm is provided as the first iteration in the cesign 
of the interactive input function. The resultant scurce code 


is listed in Appendix A. 
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ALGORITHM INTERACTIVE-INPUT 
- Input argument list from user 


= levermane status of imput string, i.e. atom, 
sequence, empty set or undefined entity 


IF (input string is an atom) OR (input string 
is the empty set) THEN 


- Create an appropriate data representation 
ELSE IF (input string is a sequence) THEN 
- Recursively generate an apvropriate data 
representation for each sequence in the 
argurent list 
FISE (input string is undefined) 


~ Generate an error message 


~- Fill in administrative information and data for 
Cach record generated 


- Return the location of the data Structure for 
future access by system and user-defined 
functions 
END INTERACTIVE-INPUT 
Zamlecaotructure Creation 
The data structure chosen to represent the input 
argument list in the Functional PASCAL System is the doubly 
linked list. The linked list data structure is dynamic in 
mature and allows the user to maintain a list which may obe 
altered at random by the addition or de@letion of components 
[6]. The procedure GENLIST, as part of the function 
REATLIST, creates a doubly linked list structure for each of 
the sequences in the input string. The result is the 
production of a list of lists with each anode veing 
represented by a variant record with designated fields. The 
design of the record format provides tne capability to 
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retain both administrative information and data related to 


the actual calculation. The structure and content of the 
record is determined by the value of two “tag” fields, 
NODETAG and DATATAG. These ‘tag’ fields indicate whether the 
mode represents data or a list, and if data, what type oo? 
data. 

A NODETAG field of 1 indicates that the current 
element is a list or sequence and that the record is the 
head node of the list. The remaining parts of the variant 
record for the “tag 1° case consist of three pointer fields, 
a data type field and a counter field. The first pointer 
field, LINK, provides the location of the next non-sequence 
element (if any) in the current sequence. The second pointer 
field, BACKPTR, provides the link to the previous record, 
thus building the doubly linked list structure. The third 
pointer field, SUBLIST, is the complement of the LINK 
pointer and provides the location of the first element (if 
any) in the subsequence. The data type field, DATATYPE, 
indicates whether the elements in a sequence are 
alphanumeric or numeric and the counter field, NUMELEMENTS, 
records the number of elements in a Sequence at each level. 

A NOLDETAG field of 9, indicates that the current 
elerent is data. The remaining parts of the variant record 
for the “tag @” case, consist of two pointer fields, a data 
tag field and a data field. The first pointer field, LINX, 
proyvedes the location of the next data item in the lowest 


level sublist. The second pointer field, 3ACXPTR, provides 
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the link to the previous node in the sequence. The data tag 
field, DATATAG, specifies whether the data item is of type 
real or integer for numeric operaticns, type alfa for single 
and multiple character representations, or type bcecolean for 
boolean operations. The data field contains the atoms in 
each sequence. Figure 4-2 illustrates the two Evapies) OF 
record variants that can be generated in the Functional 
PASCAL System. After the entire data structure is created, a 
Porater variable, LISTPTR, is returned by the function ina 
order to provide future access by the system and 
user-defined functions. The very first node created is 
termed the head node and contains critical summary-type 
administrative information regarding the argument list as a 
whole. An example of an input argument list and the 
subsequent data structure created by the input function is 
provided in Figure 4-3. The source code ‘for the ovdrocecture 
GENLIST is listed in Appendix A. 
5. Function Application 

Sections 1 and 2 above refer to the opject portion 
of a functional programming operation. As illustrated in 
Figure 4-1, there is also a function  ovortio1r which 
Gomsists of the system and user-defined functions. The 
Erinciple om function application mandates that these 
functions be used to manipulate the input data to achieve 
the desired output. A complete set of algorithms for the 
syster-defined functions is provided in the latter half of 


this chapter. The function algorithms are divided into two 
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catagories; (1) primitives and (2) functional forms. The 
documentation for each function also includes the input and 
output parameters, the constraints associated with each 
function application and numerous practical exarples. 

2. Output Bunction 

The Functional PASCAL System provides the user with 
the capability of obtaining an output of any functicnal 
programming operation. A functional operation can result in 
one of three possible outputs; (1) an atom, (2) a secuence 
or (3) an undefined entity (error condition). When the 
output is in the form of an atom, there are four possible 
responses that can be generated; (1) a real number, (2) an 
integer, (3) a boolean expression or (4) a character. The 
principle of ‘information hiding” provides the programmer 
with the knowledge that irrespective of the function 
operation performed, the entity returned is a pointer 
variable to a list Structure containing the appropriate 
response. 

In the event that the output is an atom, the returned 
value is a pointer to a single node containing the 
respective output data. The type of data in the data field 
Poeeopecified by a data tag of 0, 1, € or 5 to indicate if 
the output is a real number, integer, boolean expression or 
Gmearacter, whichever is applicable. If the output is a 
sequence, the returned value is a pointer to a complete list 
Structure representing the result ot the functional 


operation. 








The procedure, WRITELIST, is a generalized system 
routine that writes a user’s output either interactively or 
in hard copy form. It uses the pointer variable returned 
from the function operation to accomplish this task. In the 
case of a sequence, a subordinate procedure, GENWRITEZ, 
recursively reassemrbles the resultant Leste structure 
inserting commas and parentheses as required. 

In order to provide the critical interface from the 
Functional to the Conventional Mode, a series of eight 
additional functions are introduced. To accomplish the task 
of data extraction from a list structure, the Functional 
PASCAL System provides four system-defined functions; (1) 
GETREAL, (2) GETINT, (3) GETBOOL and (4) GETALFA. These 
functions take a pointer to the list structure containing 
the output value and return this value to a variable of the 
same type in the conventional portion of the rprogram. This 
€alliows the user to take the results of the /?unction 
operations in the Functional Mode and transfer them back to 
the Conventional Mode within the Functional PASCAL program. 
The process can be reversed ina similar manner. Tc return a 
Paecular data iter to the appropriate list Structure, the 
system provides four additional functions; (1) FPUTREAL, (2) 
FUTINT, (3) PUTSBSOOL and (4) PUTALFA. A pointer variable is, 
eeain returned, r@creatiag the identical structure as it 
Sxistee prior to the call of one of the GET *unctions. The 
source code for all of the system output functicns is listed 


in Appendix A. 


1 





C. CONVENTIONAL MOTE DESIGN 

In order to effectively interface the Functional Mode 
with the Conventional Mode, it is necessary to use the 
“include. function provided by the UC Berkeley PASCAL 
compiler. Separate files are maintained for the variables, 
types and functions related to the functional Mode of the 
proposed system in order to avoid conflict with the 
particular implementation of the UC Berkeley compiler. These 
files comprise the ‘system library and the programmer must 
incorporate them into the main program vy wsing the 
“include function. A detailed description and step-by-step 
procedure for using the function is provided im Bppencix 3 


(User’s Manual). 


we 








D. SYSTEM-DEFINEFL FUNCTION ALGORITEMS 


Catagory I: Primitives 


NAME: Selector 
FURPOSE: To select a pre-determined element froma list. 


INPUT PARAMETERS: x: A pointer variable to the first node 
of the list structure 


OUTPUT PARAMETERS: x: A pointer to the newly-created list 
structure containing the element 
selected 


CONSTRAINTS: (1) Input parameter, x, must be a pointer 
to a twor-element list. 


(2) The first element of the list must be 
a positive integer value, s, which 
represents the element to be selected. 


(3) The second element of the list mst de 
a sequence and the number of elements, 
n, in the sequence must be greater 
than or equal to sg. 


BumerlONeGALI: SELECT (x:ptr) : ptr; 
PRAY PTE: SELECT (x) where x = (3,((1,2,3),(4.6),c,(3,4))) 


_——= Cc 


SELECT (x) where x 
=== (ae) 


(4,4a,b,c,(d,e) ) 


ALGORITEM: SELECT (x) ===> 
ex = (5, (x11),...,xln])) AND a >= s THEN 
x(s] 
ELSE 
undefined 
ENTIF 
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SYSTEM-LEFINED FUNCTION ALGORITHMS 


Catagory I: Primitives 


NAME: Tail 

PURPOSE: To disgard the first element of alist and return 
a list containing the rest of the elements of the 
ier S.b.. 


INPUT PARAMETERS: x: A pointer variable to the first node 
of the list structure 


OUTPUT PARAMETERS: x: A pointer to the newly-created list 
structure containing the remaining 
elements in the list 

CONSTRAINTS: (1) Input parameter, x, must be a pointer to 

a list of n elements where nis greater 
than or equal to 1. 

FUNCTION CALL: TAIL (xs:ptr) : ptr} 

EXAMPLE: TAIL (x) where x = (1,2,3) ===> (2,3) 

ALGCRITHM: TAIL (x) ===> 

IF x = (x{1]) THEN 
empty set 

mem Pe x = (xflj,..-x[nl) AND n >= 2 THEN 
(ele) .ceextn) ) 

ELSE 


undefined 


ENTIF 


> eee ED ee eee ee GD SUED cee CSE ED ee ee ee ee ee ee ee OE ee ee 2 ee eee owe ee ee eee eo > > a oe we GSD ES ee ee a SSS SS 
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SYSTEM-DEFINED FUNCTION ALGORITHMS 


Catagory I: Primitives 


NAME: Atom 


FURPOSE: To identify whether an object, x, i$ an atom or a 
Lissite. 


INPUT PARAMETERS: x: A pointer variable to the first node of 
a list structure 


OUTPUT PARAMETERS: x: A pointer variable to a list 
structure containing the boolean 
results of the test 


CONSTRAINTS: (1) Input parameter, x, must be a pointer 
to a list of n elerents where n is 
greater than or equal to @. 

PUNCTION CALL: ATOM (xeptr) : ptr; 


FXAMPLE: ATOM (x) where x = (1,2,3,4) ===> false 


ATOM (x) where x ===> true 


ALGORITHM: ATOM (x) ===> 
IF (x = atom) THEN 
Crue 
ELSE IF (x <> undefined) THEN 
false 
ELSE 


undefined 


Je 





SYSTEM-DEFINED FUNCTION ALGORITHMS 
Catagory I: Primitives 


NAME: Identity 


PURPOSE: To return the identity of an object, which is the 
Object itself. 


INPUT PARAMETERS: x: A pointer variable to the first node 
in the list structure 


OUTPUT PARAMETERS: x: A pointer to the newly-created list 
structure containing the original 
object 

CONSTRAINTS: (1) Input parameter, x, must be a pointer to 

a list of n elements where nis greater 
than or equal to @. 

EUIMCTION CAIL: If (xiptr) : ptr; 

EXAMPIF: ID (x) where x = (6,7,(2,3)) ===> (6,7,(2,3)) 

hic) where x = AIS ===> ABS 

MicORiTeM: IT (x) ===> 

IF (x = atom) THEN 


atom 


Eioe IF x (Gees eee) eeu aN 
(alle. 2. xin) ) 

ELSE IF x = ( ) THEN 
empty set 

ELSE 


undefined 








SYSTEIM-LTEFINED FUNCTION ALGORITHMS 
Catagory I: Primitives 


NAME: Equals 


PURPOSE: To determine whether the elements of a two-element 
list are equal. 


INPUT PARAMETERS: x: A pointer variable to the first node 
in the list structure 


OUTPUT PARAMETERS: x: A pointer variable to a list 


Structure containing the boolean 
results of the test 


CONSTRAINTS: (1) Input parameter, x, must be a pointer 
to a two-element list. 


FUNCTION CALL: EQUALS (x:ptr) : ptr; 


EXAMPIE: EQUALS (x) where x (ie 2) Si eels 2. oy). ===> true 
EQUALS (x) where x = ((1,2,3),(1,2,4)) ===> false 
EQUALS (x) where x = (AB ,AB) ===> true 
ALGORITHM: FQUALS (x) ===> 
IF (x is a two element list) THEN 
IF (both elements are equal) THEN 
true 
FLSF 
Tavlese 
ENDIF 
ELSE 
undefined 


ENDIF 








SYSTEM-DFFINED FUNCTICN ALGORITEMS 
Catagory I: Primitives 


NAME: Null 
PURPOSE: To determine if a list contains any elements. 


INPUT PARAMETERS: x: A pointer variable to the first node of 
the Mist sittrvetire 


@eirur PARAMETERS: x: A pointer variable to a list 
Structure containing the boolean 
results of the test 


CONSTRAINTS: (1) Input parameter, x, must be a pointer 
to a list of n elements where n is 
greater than or equal to @. 

FUNCTICN CALL: NOLL (x:ptr) : ptr; 


EXAMPLE: NULL (x) where x 


( ) ===> true 


NULL (x) where x (AB) ===> folse 


ALGORITHM: NULL (x) ===> 
IF (x = empty set) THEN 
true 
ELSE IF (x <> undefinea) THEN 
Fase 
ELSE 
undefined 


-_ = oe 2 et 2 ee Oe ee 2 ee 2 2 | Sw ae ee Gee es Se se ee Se a a i es 2 Ss Gs SS aS OS a Se ae a a SS SS ESS SS SS SS SS SS SEs 
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SYSTEM-CEFINED FUNCTION ALGORITHMS 


Catagory I: Primitives 


NAMF: Reverse 
FURPOSE: To reverse the elements of a list. 


INPUT PARAMETERS: x: A pointer variable to the first node 
of the list structure 


OUTPUT PARAMETERS: x: A pointer to the newly-created list 
Structure containing the elements of 
the original list in reverse order 


CONSTRAINTS: (1) Input parameter, x, must be a pointer 
to a list of n elements where n is 
greater than or equal to @. 

FUNCTION CALL: REV (xeptr) : ptr; 


EXAMPLE: REV (x) where x (eos) === eo, el) 


Rev (x) where x = ((1,2),B,3) ===> (3,8,(1,2)) 
ALGORITHM: REV (x) ===> 

weer = (x[ty,...,x{a]) TERN 
CF al oes, Slee) 

FISEF IF x = ( ) THEN 
empty set 

ELSE 
ime et ped 


ENIIF 








SYSTEIM-LTEFINED FUNCTION ALGORITHMS 
Catagory [: Primitives 


NAME: Length 
PURPOSE: To determine the number of elements ina list. 


INPUT PARAMETERS: x: A pointer variable to the first node 
of the list structure 


OUTPUT PARAMETERS: x: A pointer variable to a list 
Structure containing the number 
of elements in the list 


CCNSTRAINTS: (1) Input parameter, x, must be a pointer 
to a list of n elements where a is 
greater than or equal to @. 


FUNCTION CALL: LENGTH (x:ptr) : ptr3 


EXAMPLE: LENGTH (x) where x Cees) ee oa 


LEINGTP (x) where x 


tl 


( ) = 
LENGTH (x) where x 


GAC 2 ao 4) eB) ===> 4 


ALGORITHM: LENGTH (x) ===> 


Ik x 


I 


Grid), ...,x in) ) THEN 
n 

FISEF IF x = ( ) THEN 
% 

ELSE 


undefined 


o> ow op @= @® Of OD ow ow ow = OF ow GD OF a ow OP EEG =a 6 SP SP OP = SP OH SD Oe a ew 6 &— ow 6D 6] 6D 6 2! 6 6 2 6! ee ewes es eo ow Pew ee | = 


60 





SYSTEM-DFFINED FUNCTION ALGORITHMS 


Catagory I: Primitives 


NAME: Add 


FURPOSE: To provide the arithmetic operation of addition 
on a two-element list. 


INPUT PARAMETERS: x: A pointer variable to the first node 
of the list structure 


OUTPUT PARAMETERS: x: A pointer variable to a list 
structure containing the sur of 
the two numbers in the input list 


CONSTRAINTS: (1) Input parameter, x, must be a pointer to 
@ two-element list. 


(2) 30th elements in the two-list must be 
numbers. 


FUNCTION CALL: ADD (x:ptr) : ptr; 
muererT ee: ATT (x) where x = (1,2) ===> 3 
ADD (x) where x 


it 
Qo 
ie 
i 
il 
it 
VW 
— 
00 


meGORIPHM: -AID (x) ===> 


meee x = (a,b) ) AND ( a,b are aumbers ) TREN 


ELSE 
undefined 


ENDIF 
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SYSTEM-LEFINED FUNCTION ALGORITHMS 
Catagory I: Primitives 


NAME: Subtract 


PURPOSE: To provide the arithmetic operation of 
subtraction on a two-element list. 


INPUT PARAMETERS: x: A pointer variable to the first node 
of the list structure 


CUTPUT PARAMETERS: x: A pointer variable to a list 
structure containing the difference 
between the two numbers in the 
input list 


CONSTRAINTS: (1) Input parameter, x, must be a pointer to 
a two-element list. 


(2) Both elements in the two-list must be 
numbers. 


Pomce CN CALI: SUB (x:ptr) : ptr; 


YXAMPLE: SUB (x) where x (15,5) ===> 18 


SUB (x) where x 


HW 
A 
1 }) 
oO 
C 

Ni 

Uf 

il 
7 

{ 
CW 


ALGORITHM: SUB (x) ===> 
IF (x is a two-element list) AND 
(both elements are numbers) THEN 
(difference between two numbers) 
ELSE 


undefined 
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SYSTEM-DEFINED FUNCTICN ALGORITHMS 
Catagory I: Primitives 


NAME: Multiply 


PURPOSE: To provide the arithetic operation of 
multiplication on a two-element list. 


INPUT PARAMETERS: x: A pointer variable to the first node 
of the list strweture 


OUTPUT PARAMETERS: x: A pointer variable to the list 
structure contatmige the product 
of the two numbers in the input 
ESS 


CONSTRAINTS: (1) Input parameter, x, must be a pointer to 
a two-element list. 


(2) Both elerents in the two-list must be 
numbers. 


FUNCTION CALL: MUL (x:ptr) : real; 


FXAMPLE: MUL (x) where x = (5,9) ===> 45 


il 
! 
Oo 
nd 
+p 
ii 
iF 
i 
\/ 
| 
A) 
nN 
Oo 


MUL (x) where x 
ALGORITHM: MUL (x) ===> 
IF (x is a two-element list) ANT 
(both elements are numbers) THEN 
(product of two numbers) 
ELSE 
under ined 


ENDIF 
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SYSTEM-DEFINED FUNCTION ALGORITHMS 
Catagory [: Primitives 


NAME: Divide 


PURPOSE: To provide the arithmetic operation of division 
on~awtWo-element list. 


INPUT PARAMETERS: x: A pointer variable to the first node 
of the list Structure 


OUTPUT PARAMETERS: x: A pointer variable to the list 
structure containing the quotient 
of the two nurbers in the input 
Hak ie 


CONSTRAINTS: (1) Input parameter, x, must be a pointer to 
a two-element list. 


(2) Yoth elements in the two-list must be 
numbers. 


(3) The second number in the list cannot be 
Q. 


BOUMCLTLION CALL: DIV (x:ptr) : ptr; 
EXAMPLE: DIV (x) where x = (1€,2) ===> 8 
DIV (x) where x = (11,2) ===> 5.5 
ALGORITHM: LIV (x) ===> 
IF (x is a two-element list) AND 
(both elerents are numbers) AND 
(the second number <> 8) THEN 
(quotient of two numbers) 
ELSE 
undefined 


ENIIF 





SYSTEM-DFFINED FUNCTION ALGORITHMS 


Catagory I: Primitives 
NAME: Transpose 


PURPOSE: To transpose a list of 2 elements containing rm 
elerents into a list of m elements containing no 
elements. 


INPUT PARAMETERS: x: A pointer variable to the first node 
of the list structure 


OUTPUT PARAMETERS: x: A pointer to the newly-created list 
structure representing the transposed 
elements of the original list 


CONSTRAINTS: (1) Input parameter, x, must be a pointer 
to a list of n elements where nis 
greater than or equal to é. 


(2) Fach element in the list of no elements 
must contain exactly m elements where m is 
greater than or equal to @. 


(3) Safi] 
y{JjJ 


(4) 1 = § = n and 1 =< j = a 


(sf11),... xm] ) (laptt Flement) 
Caine, eae |) Oe Coutput “Elerent ) 


momcTlOM CALL: TRANS (x:ptr) : ptr; 


EXAMPIE: TRANS (x) where x = ((1,2),(3,4),(5,6)) 
===> ((175)5),(2,4,6)) 


ALGORITHM: TRANS (x) ===> 
inex oe(();...,( )) THEN 
empty set 
BLS® IF x = (x[1)],..-,x{n]) THEN 
(y{1J,...,y[r)) 
ELSE 
undefined 


ENDIF 





SYSTEM-DEFINED FUNCTION ALGORITHMS 


Catagory II: Functionals 


NAME: Insert 


FURPOSE: To perform selected binary function operations 
Onpaenwentare List structure beginning with the 
innermost level (right to left) and using the 
result as input to the next higher level until 
the outermost level is reached and the final 
result obtained. 


INPUT PARAMETERS: x: A pointer variable to the first node 
of the list structure 


f: The selected binary function to be 
inserted into the list structure 


OUTPUT PARAMETERS: x: A real number value representing the 
final result of the insert operation 
for the selected function 


CONSTRAINTS: (1) Input parameter, x, must be a pointer 
to a list of n elements where n is 
greater than or edual to @. 


(2) The selected primitive function operation 
must be compatible with the elements of 
Peres Ure 


MmeeerONe CALI: INSERT (function f(x:ptr) : ptr; x:otr) : ptr; 


FXAMPLE: INSERT (f,x) where f = ADD and x = (8,190,12,14) 
===> ATID (8,ADD (1@,AID (12,aDI (14)))) 

=e koe Ss AnD (10,ADD (12, 14))) 

===> ADD (8,ADD (18,26)) 

——— roa Sc) 

===> 44 

FRT (f,x) where f = MULTIPLY and x = (2,6,8) 
> MUL (2,MUL (E€,MUL (8))) 

> MUL (2,MUL (6,28)) 
> MUL (2,48) 
>» gé 


io oi Wee 
oun wae 
ouniun 


EE 





INSERT (f,x) where f = SUETRACT and x = ( ) 
= SUB ( ) 

===) 8 

INSERT (f,x) where f = SUETRACT and x = (5) 
===> SUB (&§) 

Sas. 


ALGORITHM: INSERT (f,x) ===> 


If x 


(x(1]) THEN 
x{1] 
PeomoLF x = (x[{ijJ,...,x{n}) and n >= 2 THEN 
Retire |, eS pen (yx (2H. 5 xi |) ) 
FLSE IF x = ( ) THEN 
Q 
ELSE 
mmcaer ined 
ENDIF 


67 





SYSTEM—LCEFINED FUNCTION ALGORITHMS 


Catagory II: fFunctionals 


NAMEs Apply to All 


PURPOSE: To perform a selected function operation on each 
element ina list structure. 


INPUT PARAMETERS: x: A pointer variable to the first node 
Of tne list structure 


f: The selected function to be applied 
to each element in the list structure 


OUTPUT PARAMETERS: x: A pointer to the newly-created list 
structure representing the result 
of the application of a function to 
each element of the list structure 


CONSTRAINTS: (1) Input parameter, x, must be a pointer 
to a list of n elements where 1 is 
greater than or equal to @. 


Pere Nonty: APTALL (function f(xsptr) =: ptr; xtptr) +: ptr; 


Serie: “APTALL (?,x) where x = ((1,2),(3,4),(5,6)) and 
a ofp 

=n ls 2)) ADL (S74), ADD 4o5c)) 

ee ic. 7 11} 


APTALL (f,x) where x CG BeGp cite S644) ) anid 
f ner 
VG in 2, 6) 


=> tee (A,B pat 
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APTALL (f,x) where x = ((2 
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PEC 42 (4 yey) 4 


Ieee) ke) 

REV (A,B)) 

MEUALL (f.x) where x = ((4,3,(1,2),(1@,12),( )) 
and f = LENGTH 


===> (LENGTH (A,B,(1,2),LENGTH (10,12),LENGTE ( ) 
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IF x = ( ) THEN 
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ioe = (xmi2),...,x(a)) TREN 
(Ce WE (1) ieee. ,f (inh) 
ELSE 
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Ve. SYSTEM IMPLEMENTATION 


A. IMPLEMENTATION METHODOLOGY 

fhe implementation of the Functional PASCAL System 
(Phase I) includes the coding, testing and debugging of all 
component parts of the system and the integration of these 
components into a conventional programming environment. Due 
to the strict use of the system development principles of 
“top-down design and ‘information hiding’, individual 
modules can be constructed independently. The detailed input 
and output parameters specified for the library subroutines, 
as well as the constraints placed upon each of the modules, 
enable the developers to make realistic and valid 
assumptions about the independent segments of the program, 
The independent components, being essentially black boxes , 
can be fully coded, tested and debugged separately before 
interfacing with the entire system. The system 
implerentation plan for the Functional PASCAL Syster is 
divided into three distinct phases: 


tt -- Coding, testing and debugging of independent 
system-defined modules (System Subd-Mode ) 


II -- Testing of prototype user-defined functions 
(User Sub-Mode) 


III -— Full system integration of Functional and 
Conventional Modes of operation 
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B. CODING AND CHECK-OUT 

mae Interactive input function, READLIST, is the first 
module to become fully operational within the Functional 
Mode of the system. It is the most critical portion of the 
system, as it takes raw data from the user in the form of an 
"object , makes format correctness decisions and either 
creates an appropriate data representation or issues 
pertinent error messages. The importance of the input 
function cannot be overemphasized, as it not only formats 
the data for the user, but also calculates and records vital 
administrative information required for future function 
operations in the prograr. 

One of the key rodules used by the input function is the 
data structure creation procedure, GENLIST. Operating on the 
input string, this procedure removes all of the “syntactic 
sugar , Such as parentheses and scommas, before assembling 
the final representation. The successful corpletica of an 
interactive read operation results in the “unction returningz 
to the main program, a pointer variable in order to provide 
future access to the user’s formatted object. 

Me output functions are the next logical components to 
be drovght on-line. These functions return to the user. the 
Mesired —résponse in the form of @ real number, integer, 
character, boolean expression or sequence, devending on the 
rrimitive or functional invoked on the object. The output 
pmecedures WHITELIST, in the case of a sequence, reinserts 


any parentheses or commas to provide the user with a 
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response in the sare ee outlined in the User’s Manual 
(Appendix B). 

With the completion of the input and output functions, 
the focus of the development is shifted from the “objects” 
to the ‘function modules which Operate sone ther. Phe 
primitive functions are separated into two developmental 
groups: those that produce atoms as output and those that 
produce sequences as output. Each primitive is coded, tested 
and debugged using the interactive input function as the 
source of its input and the output function for the outvut 
from list construction operations. After the successful 
Teemame of the primitive functions, the fore complex 
functional forms are incorporated into the system. A 
complete source code listing Lor all System-defined 
functions is provided in Appendix A. A summary of the test 
procedures and results is included in Appendix C. 

The development and testing ee the individual 
syster-defined functions, above, is only the first step in 
the implementation plan Yor the total Functional PASCAL 
Syster. The ability of users to define their own functions 
is paramount to the overall success of the system, providing 
toth flexibility and power. The user-defined functions can 
be implemented by defining new functions within the main 
conventional program, following the syntactic rules required 
By UC Berkeley PASCAL. The functions can be created using 
any of the system-defined functions resident in the library. 


It is the responsibility of the programmer to carefully plan 
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and monitor all appropriate inputs and outputs of the 
individual components when creating new fmanetions. 
Sufficient error checking is included within the system to 
protect the user from invalid ope@rations, i.e. operations 
which violate the expected input and output parmeters or 
constraints on the modules. However, the overall result of 
such errors is the same as would be expected from the UC 
Ferkeley compiler--termination of execution and the display 
of an error message. Some examples of simple user-defined 
functions are listed in Appendix C. 

The third and final phase of the implementation plan is 
“system integration’. Full “system integration is 
accomplished by constructing a simple PSSGAL program 
(Conventional Mode) which utilizes the newly-created 
Functional Mode at various points in the application. The 
use of the functional components at designated locations in 
the conventional program illustrates, in a real-world 
environment, the movement along the prograrming language 
continuum discussed in Chapter III. An example of a 


Functional PASCAL program is provided in Appendix C. 


C. TESTING 
1. Testing Strategy 
The software testing strategy developed for the 
Functional PASCAL System involves both the ‘unit testing 
and “integration testing philosophies [8]. The principle of 
“unit testing is used to comprehensively test each of the 
system-defined functions that are to reside in the system 
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library. Unit testing focuses on the actual intricacies of 
mee code within each mrodule. It is at this"pofnt thet 
software validation occurs to insure that each function 
operates correctly and contains the features prescribed by 
its requirements and specifications. The testing at the 
“unit” level emphasizes verification of logic, computations 
and data handling [8]. 

After the success?ul testing of each of the 
system-defined functions, the principle of “integration 
testing is invoked. The “integration testing views the 
system at the component or module level rather than at the 
detailed level of code as in unit testing . This level of 
testing considers the interaction between software modules 
and the overall operation of the Functional PASCAL System. 
It is at this point in the testing process that subtle 
errors emerge due to the complex interactions” between 
components. 

e. Error Handling Procedures 

The Functional PASCAL System provides two basic 
levels of error checking. The first level occurs upon entry 
of an object into the system via REAPLIST. Improperly 
Stvructtre@ input strings, i.e. rissing or misplaced 
parentheses or commas, result in an error message indicating 
a malformed object . The program is terminated immediately 
by the use of a PASCAL GOTO statement which transfers 
control back to the main program from the location at which 


the error is detected. The second level or error checking 
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occurs upon the application of a system or user-defined 
function to an ‘object’. Inappropriate or incompatibdle 
function operations attempted on an input string result in 
an error message indicating the nature of the problem and, 
as in level oneé errors, termination of program execution. 
Both level one and level two errors are fatal and constitute 
a non-recoverable operation. A complete listing of possible 
error conditions and corrective procedures is provided in 


Appendix B (User’s Manual). 
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VI. CONCLUSIONS 


The success of any endeavor can be measured by the 
extent to which the initial goals and objectives are 
obtained. In this thesis, the hypothesis that the theory of 
pure functional Programming can be applied to a standard 
conventional programming language is tested. The absence of 
a “working” functional programming language that the average 
conventional language programmer can use and understand 
prompted the initial investigation of this idea. The 
findings of the researchers are conclusive; the resultant 
design, development and implerentation of a simple, yet 
powerful functional programming system operating within a 
conventional environment positively reinforce the original 
hypothesis. 

The primary consideration in the design of the 
Functional PASCAL System is to provide the user with a 
unique opportunity to experiment with the concepts of 
functional programming in the more traditional, ‘imperative 
language environment. A secondary consideration is to build 
a simple, ‘user friendly” system that is not only easy to 
understand but easy to operate. The user is given a 
clear-cut choice as to which programming methodology dest 
suits the particular application and can react accordingly. 
It is the integration of these functional programming 


concepts into a conventional, high-level program that allows 
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aes user to gain an added dimension of flexibility in 
complex problem-solving situations. Pn addition, the 
implementation of the Functional PASCAL System bridges the 
“applicative language gap which now exists in the 
predorinently conventional language computer industry by 
giving the user the ability to gradually become accustomed 
to a new form of programming. 

The efficiency of implementation for the Functional 
PASCAL System is not specifically addressed within the scope 
of the study. The literal use of memory within the system is 
Jwstified by its rapidly decreasing cost and increased 
benefits in developing a ‘user friendly system. The greatly 
escalating costs of programmer time in the areas of 
development and maintenance give license to be mesic 
concerned than in the past with efficiency considerations. 
Programmer productivity and the optimization of human 
resources is not only the dominant factor in business and 
industry today, but also the motivation behind this thesis. 

All in all, the Functional PASCAL System enables the 
user to move freely between two distinct programming 
methodologies. The total transparency to the user of the 
many intracacies of functional programminz operations 
results in a simple, yet powerfully flexible systemr complete 
with error checking and diagnostics. 

The scope of the study (Phase I) is limited to the 
develovmrent of only about one-half of the primitive 


functions and functional forms within the fackus system. The 
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Functional PASCAL System, therefore, is flexible enough to 
accept additional system-defined modules at any time. It is 
envisioned that Phase II of the process would involve the 
design and development of the remaining primitives and 
- functionals to further enhance the overall syster. 
Additional research is needed in the area of operational 
efficiency in order to evaluate the expense of implementing 
a functional system. Specific areas of interest are response 
time, execution time and total memory requirements. 
Exploration into the possibility of integrating the %ackus 
functional programming system into other high-level 
languages may also prove valuable. Finally, the exteusion of 
the Functional PASCAL System into a concurrent programming 
environment would be an excellent topic for follow-on 
research and present the language designers with even 


greater challenges in the future. 
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LISTING OF SOURCE CODE 


APPENDIX A 
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S(ITTJINO)UTAYTUMS UTAYTUM 
{SINAIWSTS HONONA LON} uTd9eq asta 
{Jt} pus 
{40j} ‘fpua 
Ttu =: yuTT* lz 
{9TTyUM} spua 
HUTT’ ,9AOW =: DAOC 
-9AOW =: U4ydyoeq’ .ASTTqns: _aaou 
U94y TTU <> ASTTGQnNSs* |sAOW JT 
-4HUTT* FSTTQns’ sAoW =: YSTTQns* _sAow 
-kdO9 
uTS9q OP (TTU <> ZAOCW) ZTTTUM 
POI = ea ep teres 
{asTa} ‘fpua 
HUTT’ .SnotAsud =; snotaAsud 
uSMO TAO MC pes ado ed 7 
+2 =2 (HULT oSnoraoud 
{LNAWATA LStL LON} uTdaq asta 
{Jt} pus 
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APPENDIX B -- USER’S MANUAL 


I. INTRODUCTION 
Welcome to the Functional PASCAL Programming System. 
This system is designed to allow the user to write computer 
programs in either the traditional ‘conventional mode or in 
a functional mode. A basic knowledge of applicative 
programming techniques and the PASCAL programming language 
is assumed in order to effectively use and understand the 
Functional PASCAL System. Readers desiring further 
information on functional programming are referred to the 
reference list following Appendix C of this thesis. 
The User’s Manual is divided into six additional 
sections as follows: 
- II. OVERALL PROGRAM FORMAT 
- III. INPUT PROCEDURES 
- IV. OUTPUT PROCEDURES 
- V. SYSTEM-DEFINED FUNCTIONS 


VI. USER-LTEFINED FUNCTIONS 
VII. ERROR HANDLING FROCELDURES 
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II. CVERALL PROGRAM FORMAT 

The format of a Functional PASCAL Program is very 
Similar to that of a conventional PASCAL program. The only 
major difference is that the functional system requires a 
few additional syster files which enables the user to input 
“objects for processing by the system and user-defined 
functions. These functions are provided in the system 
library and are incorporated into the main program by using 
the standard “include statement. In order for the user to 
gain full access to all of the functional programming 
capabilities of the system, it is necessary to “include six 
components in the main program: (1) a label declaration, (2) 
a type declaration, (3) a variable declaration, (4) 
systerm-defined functions, (5) an initialization routine and 
(6) an errorlabel declaration. These components provide a 
complete interface package with the functional portion of 
the system. The label and errorlabel declarations allow the 
system to términate gracefully from the functional mode of 
operation upon encountering an error condition in that 
prograr module. It should be be noted that the ‘include’ 
statement rust follow the format of the sample program shown 
in this Appendix. The # must appear in column 1 and «the 
quotation marks must surround the designated system files 


being called. 
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FUNCTIONAL PASCAL PROGRAM FORMAT 


PROGRAM funcpascal (input,output) ; 
# include label 
TYPE 


# include “type.i- 


user-defined type declarations 
VAR 


# include ‘var.i- 


e 


user-defined variable declarations 
# include functions.i- 


user-defined procedures and functions 
BEGIN 


# include "init.i- 


main body of program 


# include “errorlabel.i’ 


END. { program funcpascal } 
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IIT. INPUT PROCEDURES 

The Functional PASCAL System allows the user to enter 
data into the program via an interactive input function, 
READLIST. The data is entered upon seeing a prompt to the 
terminal as follows: 

ENTER OBJECT. a 

===> 
The interactive function, REATLIST, can be activated by 
invoking it as a routine function call as in any other 
FASCAL program. The following example illustrates a typical 
Statement in the main body of the Functional PASCAL program 
which accomplishes this task: 

x := REALTLIST; 
The primary purpose of this function is to capture raw data 
from the wser and format it into an appropriate data 
representation. The return value from REATLIST is a pointer 
variable to the newly-created data structure. 

The basic unit of any input data is the ‘object. An 
“object. can be an atom or a sequence, depending on the type 
of functional operation being invoked. The Functional PASCAL 
System requires the user to follow a limited number of 
“syntax rules when entering data cbjects into a program. 

- The allowable character set for data objects is: 
Abed 


Gee Z 


) 

) 

een? 
) ~ 

) 


LO EE EO 
Cnib GI ASP 
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~ Atoms can be constructed from a combination of one 

to ten characters from the allowable character set. 
identrriens: (1) Mast begine with A..Z, a..z 

2) Can have numbers after first 

2 


— oe 


letter 
) Not to exceed ten characters 


( 
Numbers: (1) Cannot exceed PASCAL compiler 
length or will go into overflow 
condition 
(2) Can input negative numbers 
(3) Can input decimal saurbers 


- Sequences can be constructed from @..n elements 
where an element is defined to be an atom or another 
sequence. 


- All sequences must begin with an open parenthesis and 
end with a closed parenthesis. 


- The length of an input data object cannot exceed 8¢ 
characters due to the limitation of the input buffer. 


- Every element in a Sequence must be separated by a 
comma. 


- Spaces may be inserted at any point in the “object 
but are disregarded during forration of the data 
structure. 


Examples of input objects to a Functional PASCAL program: 


===>cat (atom) 
aa) (sequence) 
===>12 (atom) 
===>((1,2),(3,4)) (sequence) 
===>(a,b,c,(1,(a))) (sequence) 
===>1.0€ (atom) 
===>(cat,dog,ball) (sequence) 


Data input into the system which violates any of the basic 


Syntax rules results in an error message to the user. 
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IV. OUTPUT PROCEDURES 

The Functional PASCAL System provides the user with a 
comprehensive set of output functions capable of extracting 
data from the appropriate representation and presenting it 
in a useable form in the main program. The output functions 
ane divided mito two basic catagories: (1) output of 
sequences and (2) output of atoms. 

In order to extract sequence data from the data 
Structure, the procedure WRITELIST is used. This procedure 
removes the data from the list structure and inserts’ the 
“syntactic sugar (parentheses and commas) before displaying 
to the terminal or to a file. The input parameter to this 
procedure is a pointer variable (x) to the current data 
structure created by the processing of an input data object. 

WRITELIST (x); ===> uiGG@in2 ,3), (4 Siete, b,c)) 

In order to extract non-sequence data from the data 
structure, a series or GET functions can be invoked, 
depending on the type of atom that is to be removed. Atoms 
can be of the form real, alfa, boolean or integer and are 
contained in a record structure similar to a sequence. The 
GET function allows the user to access the particular data 
structure containing the result of a functional operation 
and make an appropriate assignment to a variable of like 
type in the rain program. 


Exarples of non-sequence output functions -- 
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y := GETREAL (x); 
where x is a pointer to a record containing 
a real number and y is a variable of type real 
declared in the main program. 


y := GETALFA(x); 
where x is a pointer to a record containing 
an alfa character(s) and y is a variable of 
type alfa declared in the main program. 


y := GETBOOL (x); 
where x is a pointer to a record containing 
a boolean expression and y is a variable of 
type boolean declared in the rain program. 
vec —eceo INT (x); 


where x is a pointer to a record containing 

an integer value and y is a variable of type 

integer declared in the main program. 
A corresponding PUT function is provided for each of the GET 
operations above. The PUT operation is the complement of the 
GET operation and takes the raw atom in the form of a real, 
alfa, boolean or integer and inserts it into a list 
structure. A pointer variable is returned to the main 
program after the PUT operation is completed. The GET and 
FUT operations provide the necessary interface from the 
functicnal to the conventional mode and vice versa. 

It should be noted that REAITLIST converts integer 

numbers into reals, and therefore, all corresponding 


outputs, with the exception of LENGTH, appear as real 


nurbers. 





V. SYSTEM-DEFINED FUNCTIONS 

The Functional PASCAL System (Phase I) provides the user 
with a total of thirteen primitive functions and three 
functional forms. These subroutines can be called from the 
system library at any time following the same rules for 
invoking procedures and functions as in a conventional 
PASCAL program. A complete description of input and output 
parameters for each primitive and functional can be found in 


Chapter IV of the research and development portion of this 


thesis. 
PRIMITIVE FUNCTIONS 
Pieces © Calling form 
1) Select SELECT 
2) Identity ID 
Zz) Reverse REV 
4) fTranspose TRANS 
5) Ator ATOM 
6) Null NULL 
7) Equals EQUALS 
@) Tail TAIL 
9) Length LENGTH 
10) Add ADD 
11) Subtract SUB 
12) Multiply MUL 
fo) oy 1 ae DIV 
FUNCTIONAL FORMS 
Functional Calling Form 

1) Insert INSERT 
Z) Apply to all APTALL 
3) Comrposition N/A 


peers 





Each primitive function is standardized in that it 
takes, as its argument, a pointer variable (x) to the data 
representation of the input object, performs the appropriate 
operation on the object and returns a pointer variable to 
the newly-created data structure after the operation is 
complete. 

Examples of primitive Pune F100 operations within a 
Functional PASCAL program -- 
y := ADD(x); 


where x 
ie m4E.5 


(67,3: .5) 


n 


y := SECT (x); 
where x = (2,(4,6,18,cat,(1,2))) 
6 


y := REV(x); 
where x = ((1,2),bal1,5) 
===> (5,bal1,(1,2)) 


where y is a variable of type pointer declared 
in the user’s main program. 


Each of the functional forms is also Standardized in 
that ot takes, as its arguments, (1) a system or 
user-defined function (f) and (2) a pointer variable (x). It 
then performs the appropriate operation on the object and 
returns a pointer variable to the newly-created data 
structure containing the results o7 the operation. 

Kxamples of functional operations within a Functional PASCAL 
Enos ta. —— 


y i= 





y := INSERT(SUB,Z) 3 
where x= (lig 456 =5.4) 


oe tw 


y := APTALL(LENGTH,x); 
where x = ((1,2),(a,b,c,d),(),(3)) 
===> (2,4,8,1) 

y := APTALL(TAIL,x) 3 


where x = aie) 


dog), (15(3,4))) 
===> ((b,c),(dog )) 


,(cat, 

((3,4) 
where y is a variable of type ‘pointer declared 
in the user’s main program. 

Meeecalrdad Melnctional form, COMPOSITION, is provided 
inherently as part of the operating procedure within the UC 
Berkeley PASCAL compiler. The functional form of COMPOSITION 
allows the “stacking on Multiple fusctrons ln sorder / to 
provide flexibility in performing more complex operations. 
The standard format for a COMPOSITION operation is as 
follows: 

CGmoproes x ===>  f =: (e : =x) 
where f and g are system or user-defined functions and x is 
an input object. The above notation reads the composition 
of f and g applied tox. 
Fxarples of the functional operation of COMPOSITION within a 
Functional PASCAL program -- 
y := REV(TAIL(APTALL(ATD,x))); 
where x = Ole ge och toa) 
=== (8,11) 
y t= INSERT(ADD,APTALL(MUL,x)); 
whemesx = ((35,5),(6;4) 546,8),{(1,3)) 
===> 90 
y := INSERT(ADD ,APTALL(MUL,TRANS(x))) 


where x = '(1,2,3),(6,5;4)) 
ae 





y := INSERT (ADD,APTALL (LENGTH, x) ) 
woere x = ((1,2,3),(a,b,c,¢d),(2,5),(7)) 


===> 19 


where y is a variable of type pointer declared 
in the user’s main program. 





VI. USER-DEFINED FUNCTIONS 

The Functional PASCAL System provides a baSic set of 
primitives and functionals which can be extended through the 
use of user-defined functions. A user-defined function is 
declared in the main program in the same manner as any 
routine PASCAL function. The function is comprised of more 
than one primitive or functional and performs a new 
operation that is beyond the Scope of the basic 
system-defined functions. The user-defined functions follow 
the same format as the primitive functions inasmuch as a 
pointer variable is taken aS an input parameter and also 
returned aS an output parameter. 
Examples of user-defined functions within the Functional 


raoowL System -— 


y := INNERPROD(x); 


where INNERPROD is a function declared in the main 
program. 


function INNERPROD (x:ptr) : ptr; 
begin 
INNERPROIT := INSERT(ADD ,APTALL (MUL,TRANS (x) )); 
end; { function INNERPROD } 


y := CCUNTELEMENTS (x); 


where COUNTELEMENTS is a function declared in the 
main progra®r. 


function COUNTELEMENTS (x:ptr) : ptr; 
begin 
COUNTELEMENTS := INSERT (ADD,APTALL(LENGTH,x)); 
end; { function COUNTELEMENTS } 


Poe 





VII. ERROR HANDLING PROCEDURES 

The Functional PASCAL System provides the user with 
GComprenensive error checking routines. Brror handling is 
accomplished in two distinct phases: (1) during the 
interactive input function, READLIST and (2) during the 
actual application of the system and user-defined functions 
on the input data object. 

During the first phase of the error checking routines, 
the input data object is examined for syntactic errors and 
appropriate messages are displayed to the terminal. The 
second phase consists of a semantic evaluation of the 
functions as applied to the particular input object and, 
again, display of messages for user information. In both 
cases, the errors are fatal and execution of the Functional 
Pascal program is terminated. Other errors outside of the 
functional portion of the program are handled routinely bdy 


the UC Berkeley PASCAL compiler. 
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APPENDIX C ~~ INITIAL TEST RESULTS 


SECTION I. UNIT TESTING (Primitive Functions) 


The following test problems and results are provided 
to illustrate the initial unit testing conducted on the 
primitive functions within the Functional PASCAL Syster. 


Primitive Function: ADD 


Primitive Function: FEV 
Poput Ob jeet: (10,15.2) 


Input Object: (a,b,c,d,e) 


Result ===> 2&.28 Result ===> (e,d,c,b,a) 
PF: SUB PF: REV 

mee (42 ,2),3) MO Mer 2,4) 76 (ne 49) ) 
RES: Error RESP, 6.9) -6 (2,4 )o1) 
PF: MUL PF: LENGTH 

ho: (41,12) £O > eles 6, Cat,6,4) 
RES: 48.00 RES: 6 

PF: DIV PF: LENGTH 

IO: (6,9) PO temo. 6, x,y, (ie ))} 
RES: Error Ro 2-5 

PF: DIV P¥: EQUALS 

I0: (2,8) rOpmmeaeeee (5) )),¢(142,(5)))) 
RES: 60.00 RES: true 

PF: ATOM PF; EQUALS 

mos ( (2) ) IO: 36 

RES: false Rags: Srror 

FF: ATCM PF: EQUALS 

IO: cat IO: (a,(a)) 

RES: true RES: false 

PF: Null PF: TAIL 

Ore (a bac ) MO ween ee 74. cnt) 

RES: false Rote ao 45 5 ake) 

PF: NULL PF: TAIL 

Mors) LO ee ies.. (4))) Xk ) 
RES: true RES se) 

PF: ID Pe: TAIL 

MOcw (reno) »(¢4,5,6) ) On anne) 

Ron) (Glee .o)414,5,6) ) RES: Error 





PF: SEPECT 
mee (om, (1,¢),ba11,2,18)) 
RES: 19 


PF: SELECT 
IO: (1) 
R&S? irror 


PF: TRANS 
TO : CCUlgaays ) , (4 
RES: krror 


a oul 7 889). 


PF: TRANS 
Mee ((1,2),(cat,dog) ) 
RES: ((1,cat),(2,dog)) 


Pe: &€DD 
mo: (2,52) 
RES: Error 


PF: DIV 
TO: (100 .6e2.2) 
RES: £0.36 


ry": 
ro: 
RES : 


NULL 
ball 
Error 


Pr: ID 
mG 7 
REFS: EFrror 
PE: RSV 
oe: (9 
RES: (1) 


Pe: SELECT 
mos (x ,¥72)) 
REFS: Error 


PFs TRANS 
10: CGle ass) 
ReS: ((1™@), 


nN) — 
(Ne 


( 
PF: EQUALS 


Roe) (ae, ) 
RES: true 


Pi: ALD 
I0: 3,4 
RES: @rror 


PF: MUL 
LOre- (Seo) 
RES: 8.20 


Pre SUE 
IO: (8,8.3) 
RES: -8.3@ 


PF: SELECT 
OREO eda eC 
RS < Srror 


Paes [at 
NOs. a, Det 
RES: Error 


PF: REV 
ro: “C4 
R@S: ( ) 


Pr: ATOM 


h@': @@iaqil ) 
RES: false 


ras 





SECTION III. INTEGRATION TESTING (User-defined functions) 


The following test problems and results are provided 
to illustrate the initial integration testing conducted on 
selected user-defined functions. 


WE EA A RE A HR HE HE IE HE A A ES BIE OE BE ACE IE OH OE OIE OK AE EE IE AK OK IK AK a EE SE AE OR OR OE OE ORE OK NE Oe OK ae RE OE OE EE BR OE OE Oe IE UE 


function INNERPROD (x:ptr) : ptr; 
begin 
INNERPROLT := INSERT(ADD,APTALL(MUL,TRANS(x)));3 
end; { function INNERPROD } 


User-defined function: INNERPROD 

Purpose: To find the inner product of a matrix. 
impwt ob fect: ((1,2,35),(6,5,4)) 

Result: 28 


WR ARE AE AE BE AE AH AEE OE BE HE IE AE BH TI AE Ae OE AE EC OS NE AE HE a IE 2 BE OE AE OE OE OIE OK OK EE HE NE HE OK NE A OE NE ONE HE NE Ne he he OK Ie a Oe AE OK 


function BATAVE (xsptr) : ptr; 
begin 
BATAVE := APTALL(DIV,TRANS(x)); 
end; { function BATAVE } 


User-defined function: BATAVE 

Purpose: To find the batting averages of? baseball 
players given a two-element list (TCTAL 
HITS and TOTAL AT BATS). 

Input object: ((10,15,26,11),(30,68,48,33)) 

Mememitset@.sc, €.25, 0.58, 0.33) 


FR AE A A AE HE IE A NC HE AE I HR IE I BIC AIC AEE BE IEE OE HK HE BE IE IE IIE HE I A HE HE HE AK I IE AK AE AE HE HE HE KE XE OE HE NS OK IE OE EE XE IE 


funetion TOTLISTELEMENTS (xsptr) : ptr; 
begin 
TOTLISTELEMENTS := INSERT(ADD,APTALL(LENGTH,x) ); 
end; { function TOTLISTELEMENTS } 


User-defined function: TOTLISTELEMENTS 

Purpose: To find the total number of elements ina list 
of lists. 

inpmoecojyect: ((1,2,5),( ),(a,b,c,d),(cat,dog)) 

Result: §& 


HE FE HE AK HE HE AK AK HE AE AK THE IC HK HE AC IC IE YE OE HE OE AK KE OK OK NE IE AE IK HK THE OC I IK AE AE AK NE IHS SH OH HK AE OK OK IK OK AE HEE HK AE OE HE I OK OK 
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SECTION IV. INTEGRATION TESTING (Functional PASCAL program) 


The following Functional PASCAL program is provided 
to illustrate the diverse capabilities of the system in a 
combination conventional and functional environment. 


He ERE RE AR RE A A AR AIC RE I a RRC EE EE HE HE a ae Ea CC AE aR a a IE 3 
program baseballstats(input,output ,outfile); 
# include label.i' 


const 
lirit = 599; 


type , r 
# include type.i 


var : a 
™ include var.i 
Ks pir; 
totplayers : integer; 


# include ‘functions.i- 


function BATTINGAVERAGE (x:ptr) : ptr; 
begin 
BATTINGAVERAGE := APTALL(DIV,TRANS (x) ); 
end; { function BATTINGAVERAGE } 


function TOTLEAGUEFPLAYFRS (x:ptr) : ptr; 
begin 
TOTLEAGUEPLAYERS := INSERT(ADD ,APTALL(LENGTH ,x)); 
end; { function TCTLEAGUEPLAYERS } 


begin x Bs 
# include init.i 
x := BATTINGAVERAGE (READLIST); 
writeln( ‘Team Batting Averages: ); 
writeln; 
WRITELIST (x); 
X := TOTLEAGUEPLAYERS (READLIST); 
totplayers := GETINT(x); 
writeln(’Total Active Players as of 15 June 82:"); 
writeln; 
writeln(totplayers); 
if (totplayers > limit) then begin 
writeln( “League exceeding authorized strength.’); 
writeln( ‘Notify Commissioner Immediately...” ); 
end; 
# include “errorlabel.i- 
end. { program baseballstats } 


ER RE AE 3 A 2G AE a RE a OO YE 28 IR AE KE FE HEE AE IKE EE IIE IK IIE NICAL IE NE AE NRC ANE ARE ORE OK NE OK IE FC NE ORE OE SIE ARE AK EAE AIC AK OR A AK AK A AE IE 


Boz 





LIST OF REFERENCES 


Backus, J., Can Programming Be Liberated from the von 
Neumann Style? A Functional Style and Its Algebra of 
Programs, Comm. ACM, v. 21 ne. &, p. €17-41, August 
1¢78. 


Henderson, P., Functional Programming Application and 
inmbpementati@ny p. 1-58, 126-127, Prentice-Hall 
International, Inc., 1980. 


Curry, H.B. and Feys, R., Combinatory Logic, v. 1, North 
Holland Publishing Co., 1958. 


Naval Postgraduate School Report NPS&2-81-006, Values 
and Objects in Programming Languages, by Bruce J. 
MacLennan, p. 1&-21, April i$81. 


Chiarini, A., On FP Languages Combining Forms, SIGPLAN 
mV, toemo. S, Pe ca-27, September 1°98¢@. 


Grogono, P., Programming in PASCAL, p. 9€-196, 225-239, 
Addison-Wesley Publishing Company, Inc., 1982. 


Jensen, K. and Wirth, N., P A Manual and Report, 
2@ @d., p. 62-85, Springer-Verlag, i978. 


Jensen, R.W. and Tonies, C.C., Software Engineering, >. 
557-356, Prentice-Hall, 1979. 


ES 





Piola, LISTRISUTION LIST 


No. Copies 


Defense Technical Information Center 2 
Cameron Station 


Alexandria, Virginia 22314 


Library, Code 9142 2 
Naval Postgraduate School 
Monterey, California 93942 


Department Chairman, Code &2 2 
Department of Computer Science 

Naval Postgraduate School 

Monterey, California 93949 


Assistant Professor Bruce J. MacLennan 52™1 i 
Department of Computer Science 

Naval Postgraduate School 

Monterey, California 935940 


Assistant Professor fouglas R. Smith 2Sc 1 
Department of Computer Science 

Naval Postgraduate School 

Monterey, California 95949 


CPT O. D. Eorcheller, USA o 
628 S. Buchanan Street 
Arlington, Virginia 22204 


Crigk. ©. Ress, USA 3 


5335 Pine Avenue 
Pacific Grove, California $3S59 


1€4 

















Thesis F ie 
Bya35 Borcheller 
e,l Functional PASCAL: 


an interim solution 

to a changing course 
in programming lan- 

guage development. 


thesB7 135 
Functional PASCAL : 


NL 


3 2768 002 07304 1 
DUDLEY KNOX LIBRARY 





